Application.modelesscmd("zb")
Application.ExecuteCommand("Quick Filter Components")
Application.ExecuteCommand("Select All")

Application.ExecuteCommand("Properties")
ComponentPropertiesDlg.Tab = "Labels"
ComponentPropertiesDlg.ComponentPropertiesLabelDlg.LabelButton.Click()
PartLabelPropertiesDlg.Attribute = "Geometry.Height"
PartLabelPropertiesDlg.X = "0"
PartLabelPropertiesDlg.Y = "0"
PartLabelPropertiesDlg.Size = "25"
PartLabelPropertiesDlg.LineWidth = "0"
PartLabelPropertiesDlg.HorizontalJustification = "Center"
PartLabelPropertiesDlg.VerticalJustification = "Center"
PartLabelPropertiesDlg.Ok.Click()
ComponentPropertiesDlg.Tab = "Labels"
ComponentPropertiesDlg.Ok.Click()

Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.SelectedColor.SetActive (15)
DisplayColorsSetupDlg.ColorGrid.Cell("BOTTOM", "Attributes") = "15"
DisplayColorsSetupDlg.Ok.Click()